home *** CD-ROM | disk | FTP | other *** search
Text File | 1998-10-30 | 1.5 KB | 112 lines | [TEXT/CWIE] |
- { AMReminderApp.p -- application-level functions }
- { Created 10/30/98 1:03 PM by AppMaker }
-
- Unit AMReminderApp;
- Interface
-
- Uses
- Types,
- Quickdraw,
- Controls,
- Events,
- Files,
- Lists,
- Menus,
- TextEdit,
- AMDoc,
- AMApp;
-
- type
- AMReminderApp = object (AMApp)
-
- {data members}
-
- {methods - public}
- Procedure Initialize; Override;
- Procedure OpenApp; Override;
-
- Function DoCommand (inCommand: longint): Boolean; Override;
-
- {methods - internal}
- Function MakeDoc: AMDoc; Override;
-
- end;
-
- {----------}
- Function NewAMReminderApp: AMReminderApp;
-
- {----------}
- Implementation
-
- Uses
- ResourceDefs,
-
- AMReminderEngine,
- AMReminderDoc,
- AMWindow;
-
- {----------}
- Function NewAMReminderApp: AMReminderApp;
- var
- app: AMReminderApp;
- begin
- New (app);
- if app <> nil then begin
- app.Initialize;
- end;
- NewAMReminderApp := app;
- end;
-
- {----------}
- Procedure AMReminderApp.Initialize;
- Begin
- inherited Initialize;
-
- mNumOpenTypes := 1;
- mOpenTypeList [0] := kFileType;
- End;
-
- {----------}
- Function AMReminderApp.MakeDoc: AMDoc;
- var
- aDoc: AMReminderDoc;
- Begin
- aDoc := NewAMReminderDoc;
-
- if aDoc <> nil then begin
- {? add to list of docs}
- end;
-
- MakeDoc := aDoc;
- End;
-
- {----------}
- Procedure AMReminderApp.OpenApp;
- Begin
- DoNew;
- End;
-
- {----------}
- Function AMReminderApp.DoCommand (
- inCommand: longint): Boolean;
- begin
- DoCommand := true;
- case inCommand of
- cmdAbout:
- DoAbout;
- cmdNew:
- DoNew;
- cmdOpen:
- DoOpen;
- cmdClose:
- DoClose;
- cmdQuit:
- DoQuit;
-
- otherwise
- DoCommand := false;
- end; {case}
- end;
-
- end.
-